Sky at Night 2006 September/SAN CD 9-2006 CD-ROM 16.iso/pc/Software/Network Telescope Control/NTC-Setup.Exe/Source/ntc_client_catalogs.pas

Pascal/Delphi Source File | 2006-03-24 | 4.1 KB | 213 lines

unit ntc_client_catalogs;
{
    Copyright (C) 2004 - 2006 Andrew Sprott

    http://astronomy.crysania.co.uk
    [e-mail]

    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License
    as published by the Free Software Foundation; either version 2
    of the License, or (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}

interface

uses
    Windows,
    Messages,
    SysUtils,
    Variants,
    Classes,
    Graphics,
    Controls,
    Forms,
    Dialogs,
    StdCtrls,
    ExtCtrls,
    Buttons,
    inifiles,

    ntc_client_form;

type
  Tscope_catalogs = class(TForm)
    catalogs_panel: TPanel;
    catalogs_group: TGroupBox;
    ComboBox1: TComboBox;
    catalog_label: TLabel;
    number_label: TLabel;
    Edit1: TEdit;
    item_group: TGroupBox;
    visible_label: TLabel;
    visible_edit: TEdit;
    ra_edit: TEdit;
    dec_edit: TEdit;
    ra_label: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    magnitude_edit: TEdit;
    goto_button: TBitBtn;
        { form functions }
        procedure formcreate(
            Sender:TObject);

        procedure form_close_query(
                    Sender: TObject;
            var CanClose: Boolean);

        { configuration }
        procedure load_settings;

        procedure save_settings;

        { events }
        procedure FormShow(
            Sender:TObject);

        procedure adjust;

        procedure check_activate(
            Sender: TObject);

    private
        { Private declarations }
    public
        { Public declarations }
        { configuration }
        dimensions:dimensions_record;

        { events }
        procedure check_visible_and_show_hide(
            sender:tobject);

        procedure hide_form;
        procedure show_form;
    end;

var
  scope_catalogs: Tscope_catalogs;

implementation

{$R *.dfm}

    { -------------
        form controls
        ------------- }

procedure tscope_catalogs.formcreate(
    Sender:TObject);
begin
    load_settings;
end;

procedure tscope_catalogs.form_close_query(
            Sender: TObject;
    var CanClose: Boolean);
begin
    canclose:=false;
    visible:=false;
    with dimensions do
        begin
            form_top:=top;
            form_left:=left;
        end;
end;

    { -------------
        configuration
        ------------- }

procedure tscope_catalogs.load_settings;
begin
    ini_file:=tinifile.create(application_path+'client.ini');
    with ini_file do
        begin
            { form }
            scope.get_dimensions(scope_catalogs,@dimensions,'catalogs',ini_file);
            left:=dimensions.form_left;
            top:=dimensions.form_top;
            visible:=readbool('catalogs','visible',false);
        end;
    ini_file.free;
end;

procedure tscope_catalogs.save_settings;
begin
    with ini_file do
        begin
            { form }
            scope.find_vdu(scope_catalogs,@dimensions);
            scope.write_dimensions(@dimensions,left,top,'catalogs',ini_file);
            writebool('catalogs','visible',visible);
        end;
end;

    { ------
        events
        ------ }

procedure tscope_catalogs.FormShow(
    Sender:TObject);
begin
    with dimensions do
        begin
            top:=form_top;
            left:=form_left;
        end;
end;

procedure tscope_catalogs.adjust;
begin
    with dimensions do
        begin
            form_top:=trunc(form_top/last_screen_height*current_height);
            form_left:=trunc(form_left/last_screen_width*current_width);
        end;
    if visible then
        show;
end;

procedure tscope_catalogs.check_visible_and_show_hide(
    sender:tobject);
begin
    if visible then
        hide_form
    else
        show_form;
    scope.show_hide(sender,visible);
end;

procedure tscope_catalogs.hide_form;
begin
    with dimensions do
        begin
            form_top:=top;
            form_left:=left;
        end;
    Visible:=false;
end;

procedure tscope_catalogs.show_form;
begin
    Visible:=true;
end;

procedure tscope_catalogs.check_activate(
    Sender: TObject);
begin
    scope.form_activate(scope_catalogs,@dimensions);
end;

end.